home *** CD-ROM | disk | FTP | other *** search
/ Inside the White House / Inside the White House.iso / prez.dir / 00253.ls < prev    next >
Encoding:
Text File  |  1995-08-01  |  461 b   |  17 lines
  1. on mouseUp
  2.   global gFPicSprite, gFPicStart, gFPicEnd
  3.   puppetSound("newclick.aif")
  4.   set the ink of sprite the clickOn to 4
  5.   updateStage()
  6.   repeat while the stillDown or soundBusy(1)
  7.   end repeat
  8.   set the ink of sprite the clickOn to 36
  9.   updateStage()
  10.   set cnum to the castNum of sprite gFPicSprite
  11.   if cnum = gFPicEnd then
  12.     set the castNum of sprite gFPicSprite to gFPicStart
  13.   else
  14.     set the castNum of sprite gFPicSprite to cnum + 1
  15.   end if
  16. end
  17.